home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH14_2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.8 KB  |  60 lines
  1.                            (* Chapter 15 - Programming example 2 *)
  2. program Inheritance_2;
  3.  
  4. uses vehicles, CarTruck;
  5.  
  6. { ************************ main program ************************** }
  7.  
  8. var Unicycle : Vehicle;
  9.     Sedan    : Car;
  10.     Semi     : Truck;
  11.     Pick_Up  : Truck;
  12.  
  13. begin
  14.  
  15.    Unicycle.Init(1, 12.0);
  16.    Sedan.Init(4, 2100.0, 5);
  17.    Semi.Init(1, 25000.0, 18, 5000.0);
  18.    Pick_Up.Init(3, 3200.0, 6, 1350.0);
  19.  
  20.    WriteLn('The unicycle weighs ', Unicycle.Get_Weight:5:1,
  21.            ' pounds, and has ', Unicycle.Get_Wheels, ' wheel.');
  22.  
  23.    WriteLn('The car weighs ', Sedan.Get_Weight:7:1,
  24.            ' pounds, and carries ', Sedan.Passengers,
  25.            ' passengers.');
  26.  
  27.    WriteLn('The semi has a wheel loading of ', Semi.Wheel_Loading:8:1,
  28.            ' pounds per tire,');
  29.    WriteLn(' and has an efficiency of ', Semi.Efficiency:5:1,
  30.            ' percent.');
  31.  
  32.    WriteLn('The pickup has a wheel loading of ',
  33.            Pick_Up.Wheel_Loading:8:1, ' pounds per tire,');
  34.    WriteLn(' and has an efficiency of ', Pick_Up.Efficiency:5:1,
  35.            ' percent.');
  36.  
  37.    with Semi do
  38.    begin
  39.       WriteLn('The semi has a wheel loading of ', Wheel_Loading:8:1,
  40.               ' pounds per tire,');
  41.       WriteLn(' and has an efficiency of ', Efficiency:5:1,
  42.               ' percent.');
  43.    end;
  44. end.
  45.  
  46.  
  47.  
  48.  
  49. { Result of execution
  50.  
  51. The unicycle weighs  12.0 pounds, and has 1 wheel.
  52. The car weighs  2100.0 pounds, and carries 5 passengers.
  53. The semi has a wheel loading of   1666.7 pounds per tire,
  54.  and has an efficiency of 83.3 percent.
  55. The pickup has a wheel loading of    758.3 pounds per tire,
  56.  and has an efficiency of 70.3 percent.
  57. The semi has a wheel loading of   1666.7 pounds per tire,
  58.  and has an efficiency of 83.3 percent.
  59.  
  60. }